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CATEGORIZING APPLICABLE PRICE DISCOUNTS 
FOR AN INDIVIDUAL CUSTOMER ORDER. 



COMPUTING VALID COMBINATIONS OF PRICE 
DISCOUNTS FOR THE INDIVIDUAL CUSTOMER 
ORDER. 



COMBINING THE VAUD COMBINATIONS OF 
PRICE DISCOUNTS INTO A PRICE DISCOUNT 
GROUP. 



SELECTING AN OPTIMAL PRICE DISCOUNT 
BASED ON THE PRICE DISCOUNT GROUP. 
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FIG.1A 



INDENTIFYING PRICE DISCOUNTS FOR AN L^24 
INDIVIDUAL CUSTOMER ORDER. 



COMPUTING GROSS SAVINGS FOR EACH OF L--25 
THE PRICE DISCOUNTS FOR THE INDIVIDUAL 
CUSTOMER ORDER. 



SELECTING AN OPTIMAL PRICE DISCOUNT THAT |^26 
PROVIDES AN OPTIMAL SAVINGS WHEN 
COMPARED TO OTHER DISCOUNTS. 
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IDENTIFYING PRICE DISCOUNT FOR AN L--27 
INDIVIDUAL CUSTOMER ORDER. 



DISABLING DISCOUNTS THAT DO NOT APPLY TO ^28 
THE INDIVIDUAL CUSTOMER ORDER TO 
PRODUCE A GROUP OF VALID DISCOUNTS. 



SELECTING AN OPTIMAL PRICE DISCOUNT THAT ^29 
PROVIDES A GREATEST AMOUNT OF SAVINGS 
WHEN COMPARED TO OTHER DISCOUNTS. 
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DISCOUNT RULESET 
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DISCOUNT RULES 
(1 RULE PER DISCOUNT) k 
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DISCOUNT GROUP RULES 
(1 OR MORE) 
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BEST DISCOUNT POLICY 
RULES 
(1 OR MORE) 




WORKING MEMORY 
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CATALOG ITEMS (SKU) 
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DISCOUNT OBJECTS 
(ALL VAUD DISCOUNTS) 
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DISCOUNT GROUP OBJECTS 
(ALL VALID SUBSETS OF 
DISCOUNT OBJECTS) 
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FIG.4 
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Example Discount Pattern Match Rule 

Rule_Discount_1[4.0]: when (phase String (phase == "0") & 

item OrderEntry (item.orderid = order.orderid, item.productName == "A") & 
discount Discount! (discountname = "A") 

) 

do (newDlscount = createlnstance("tesLDiscounr) 
newDiscount.name='A" 

rc = setMember(newDiscount'1ype'.'free-merchandise") 
newDiscountfactorl =1.0 
rc = invol(e(newDiscount,"applyDlsoDunt",item) 
rc = assert(wm,newDiscount) 

newDiscountGroup = createlnstance(^est.DiscountGroup") 
rc = invoke(newDiscountGroup,"addDiscounf, newDlscount) 
rc = assert(wm,newDiscountGroup) 
) 
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Example DiscountQroup Pattem Match Rule 

Ruie_6[4.0]: 

when (phase String (phase == "1") & 
discount Discount (discountdlscountValue > 0.0) & 
discountGroup DiscountGroup ( 

falseValue == invoke(discountGroup,"containsDiscount',discount) 
falseValue == invoke(discountGroup.'containsltems',discount)) 
discountGroup2 DiscountGroup !( 

tmeValue = invoke(discountGroup2,"containsSameitems",disoount6roup,disGount) 

do (newDiscountGroup = createlnstanceClest.DiscountGroup') 
rc = invoke(newDiscountGroup,"copyDiscounts",discountGroup) 
rc = invoke(newDiscountGroup,"addDiscounf .discount) 
rc = userBreakpoint(this.'adding new discount group to wm") 
rc = assert(wm,newDiscountGroup) 

) 
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